﻿Public Class PicupPoint

    Public Property id As ULong
    Public Property navn As String
    Public Property adresse As String

    Public Sub New() ' defaul konstruktør
    End Sub

    Public Sub New(ByVal innlestId As ULong)
        id = innlestId
    End Sub

    Public Shared Sub AddPicUpPoint(ByVal picNavn, ByVal picAdresse)

        Dim søkestreng As String = "INSERT INTO picuppoint (picUpNavn, picUpAdresse) VALUES ('" & picNavn & "','" & picAdresse & "')"
        Dim dt As New DataTable
        dt = Database.Query(søkestreng)

        ' burde returnere om det gikk greit eller ikke... eller vise resultatet

    End Sub

    Public Sub Lagre()
        ' todo: må implementeres.....
        MsgBox("todo: må implementeres.....")
    End Sub



End Class
